home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl / devkit / e / examples / cl_helloworld.e next >
Encoding:
Text File  |  1995-09-15  |  3.7 KB  |  68 lines
  1. /*
  2.  * Beispiel für Ausgabe eines Textes auf den Screen des Ports
  3.  *  und für eine Eingabeaufforderung (Stringeingabe)
  4.  */
  5.  
  6. MODULE 'cl/clonline'            -> Die Funktionen der CLOnline.library einbinden
  7.  
  8. ENUM ER_OL_CLONLINE, ER_CLONL_OPEN
  9.                                 -> mögliche Exceptions festlegen!
  10.  
  11. CONST   COLOR_Black     = 0,            -> ANSI-Farbe 0 festlegen
  12.         COLOR_Red       = 1,            -> ANSI-Farbe 1 festlegen
  13.         COLOR_Green     = 2,            -> ANSI-Farbe 2 festlegen
  14.         COLOR_Yellow    = 3,            -> ANSI-Farbe 3 festlegen
  15.         COLOR_Blue      = 4,            -> ANSI-Farbe 4 festlegen
  16.         COLOR_Pink      = 5,            -> ANSI-Farbe 5 festlegen
  17.         COLOR_Cyan      = 6,            -> ANSI-Farbe 6 festlegen
  18.         COLOR_White     = 7             -> ANSI-Farbe 7 festlegen
  19. CONST   STYLE_NORMAL    = 0,            -> ANSI-Style NORMAL festlegen
  20.         STYLE_BOLD      = 1,            -> ANSI-Style BOLD festlegen
  21.         STYLE_KURSIV    = 2,            -> ANSI-Style KURSIV festlegen
  22.         STYLE_UNDERLINED= 3,            -> ANSI-Style UNDERLINED festlegen
  23.         STYLE_INVERSE   = 4             -> ANSI-Style INVERSE festlegen
  24. CONST   TYPE_ASCII      = 0,            -> TYPE für Blueread ect. festlegen
  25.         TYPE_NUMBER     = 1,            -> TYPE für Blueread ect. festlegen
  26.         TYPE_BOOL       = 2,            -> TYPE für Blueread ect. festlegen
  27.         TYPE_SECRET     = 3             -> TYPE für Blueread ect. festlegen
  28.  
  29.  
  30. PROC main() HANDLE              -> Programmanfang!
  31. DEF status, str[70]:STRING, def[70]:STRING, len, type, maske, strptr
  32. IF (clonlinebase:=OpenLibrary('clonline.library',0))=NIL THEN Raise(ER_OL_CLONLINE)
  33.                                 -> ^^^^ clonline.library öffnen!
  34.  IF (status:=ClONL_Open('helloworld.clcat'))=NIL THEN Raise(ER_CLONL_OPEN)
  35.                                 -> ^^^^ Catalogfile öffnen!
  36.   ClONL_FlushOutput()           -> Ausgabebuffer leeren
  37.    ClONL_ClearScreen()          -> Bildschirm leeren (löschen)
  38.     ClONL_Color(COLOR_White, COLOR_Blue, STYLE_NORMAL)
  39.                                 -> ^^^^ Vordergrundfarbe auf Rot, Hintergrund-
  40.                                 -> farbe auf Blau, Style auf Normal
  41.      ClONL_DrawTitle()          -> Titel zeichnen...
  42.       ClONL_Normal()            -> Textstyles und ANSI-Modes wieder auf normal
  43.        len:=70                  -> Maximale Stringlenge für BlueRead angeben!
  44.         type:=TYPE_ASCII        -> Eingabetyp festlegen
  45.          maske:=0               -> Maske auf 0 (nicht benötigt)
  46.           StrCopy(def,' So, bitte was eingeben... ',28)
  47.                                 -> ^^^^ Defaultstring festlegen
  48.            strptr:=ClONL_BlueRead(str,def,len,type,maske)
  49.                                 -> ^^^^ String einlesen, def dabei als DEFAULTstring
  50.             ClONL_VPrintf('\n\nEingabe:',10)
  51.                                 -> ^^^^ Text ausgeben!
  52.              ClONL_VPrintf(str,70)
  53.                                 -> ^^^^ oben eingegebener String ausgeben!
  54.               ClONL_VPrintf('\n',1)
  55.                                 -> ^^^^ Zeilenende ausgeben!...
  56.  ClONL_Close()                  -> Portaktivitäten beenden
  57. CloseLibrary(clonlinebase)      -> clonline.library schließen
  58. EXCEPT                          -> exceptions verwalten!
  59. SELECT exception                -> exceptionart festlegen
  60.         CASE ER_OL_CLONLINE     -> Wenn exception=ER_CLONLINE, dann...
  61.                 WriteF(' Konnte clonline.library nicht öffnen!\n')
  62.         CASE ER_CLONL_OPEN      -> Wenn exception=ER_CLONL_OPEN, dann...
  63.                 WriteF(' Can`t Init ANSI-System...\n')
  64. ENDSELECT                       -> Exceptionhandling beenden!
  65. ENDPROC                         -> Programmende
  66.  
  67.  
  68.